home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 3
/
ct-rom iiib.zip
/
ct-rom iiib
/
WINDOWS
/
DIVERSEN
/
WINE02BX
/
DIRED-RC.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
2KB
|
26 lines
;;; compiled by jwz@thalidomide on Tue Aug 18 17:08:52 1992
;;; from file /u/jwz/emacs19/lisp/dired/dired-rcs.el
;;; emacs version 19.2.2 Lucid.
;;; bytecomp version 2.08; 2-aug-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(defconst dired-rcs-version (substring "!Revision: 1.5 !" 11 -2) "\
Id: dired-rcs.el,v 1.5 1991/11/06 13:06:22 sk RelBeta ")
(require 'dired)
(fset 'dired-rcs-mark-rcs-locked-files #[(&optional unflag-p) "└ ┬\"ç" [dired-rcs-mark-rcs-files unflag-p t] 3 "\
Mark all files that are under RCS control and RCS-locked.
With prefix argument, unflag all those files.
Mentions RCS files for which a working file was not found in this buffer.
Type \\[dired-why] to see them again." "P"])
(fset 'dired-rcs-mark-rcs-files #[(&optional unflag-p locked) "└┴\n½â├¬ü─½â╞¬ü╟#ê\n½â╚¬é ╩ëëëë ╨╤╨╥\"\"êG½½╘@!Aè╒!½å╓╫!ê¬Å╪┘\"ê┌!B)¬Q¼Ü└█½â╞¬ü╟▄!\n½â▌¬ü╟%ꬡG▐▀\"ê└α½â╞¬ü╟▄!Z\n½â▌¬ü╟&ê.ç" [message "%s %sRCS controlled files..." unflag-p "Unmarking" "Marking" locked "locked " "" 32 dired-marker-char nil total count failures wf rcs-files mapcar #[(dir) "└┴\n!!├Ü«Æ─½à╞\n!¬â╟\n!\"ëç" [file-name-nondirectory directory-file-name dir "RCS" append locked rcs-locked-files rcs-files] 3] car dired-subdir-alist rcs-working-file dired-goto-file dired-mark-file 1 dired-log "RCS working file not found: %s\n" dired-make-relative "%d %sRCS file%s %smarked." dired-plural-s "un" dired-log-summary "RCS working file not found %s" "%d %sRCS file%s: %d %smarked - %d not found %s."] 9 "\
Mark all files that are under RCS control.
With prefix argument, unflag all those files.
Mentions RCS files for which a working file was not found in this buffer.
Type \\[dired-why] to see them again." "P"])